home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
misc
/
avmNfax1_33.lha
/
avmsuite
/
avm-install
< prev
next >
Wrap
Text File
|
1994-06-24
|
7KB
|
313 lines
(welcome "AVM Suite Installation")
(transcript "Installing the AVM Suite...")
; **************************************************************************
; **************************************************************************
; **************************************************************************
(complete 20)
(set @default-dest "Work:AVMSuite")
(set avmdest
(askdir
(prompt "Where do you want to put the AVM Suite?")
(help @askdir-help)
(default @default-dest)
(newpath)
)
)
(set @default-dest avmdest)
(makedir avmdest (infos))
(makeassign "AVM" avmdest)
(set previousinstallation (exists "avm:mailbox.cfg"))
(execute "copyoldfilenames"
(prompt "Copying old filenames.cfg to oldfilenames.cfg")
)
(if (> previousinstallation 0)
(set useoldicons
(askbool
(prompt "Do you want to save your current icons?")
(help "Say yes if you want to.")
(default 1)
)
)
(set useoldicons 0)
)
(if (= useoldicons 1)
(execute "backupoldicons"
(prompt "Backing up old icons")
)
)
(if (> previousinstallation 0)
(set bool
(askbool
(prompt "Do you want me to backup stuff in avm:rexx?")
(help "If you've modified them and want to keep them, say yes.")
(default 1)
)
)
(set bool 0)
)
(if (= bool 1)
(execute "backupavmrexx"
(prompt "Backing up avm:rexx into avm:old/rexx")
)
)
(if (> previousinstallation 0)
(set bool
(askbool
(prompt "Do you want me to backup stuff in avm:source?")
(help "If you've modified them and want to keep them, say yes.")
(default 1)
)
)
(set bool 0)
)
(if (= bool 1)
(execute "backupavmsource"
(prompt "Backing up avm:rexx into avm:old/source")
)
)
(copyfiles
(prompt "Copying executables, scripts, icons, and documentation...")
(help @copyfiles-help)
(source (expandpath ""))
(dest avmdest)
(pattern "~(mailbox.cfg|mailbox1|mailbox2|anonymous)")
)
(if (> previousinstallation 0)
(set bool
(askbool
(prompt "Should I overwrite your mailbox.cfgs?")
(help "If you've never used AVM, say yes.")
(default 0)
)
)
(set bool 1)
)
(if (= bool 1)
(copyfiles
(prompt "Copying mailbox.cfg")
(help @copyfiles-help)
(source (expandpath ""))
(dest avmdest)
(pattern "mailbox.cfg")
)
)
(if (= bool 1)
(copyfiles
(prompt "Copying anonymous mailbox")
(help @copyfiles-help)
(source (expandpath ""))
(dest avmdest)
(pattern "anonymous")
)
)
(if (= bool 1)
(copyfiles
(prompt "Copying mailbox1 mailbox")
(help @copyfiles-help)
(source (expandpath ""))
(dest avmdest)
(pattern "mailbox1")
)
)
(if (= bool 1)
(copyfiles
(prompt "Copying mailbox2 mailbox")
(help @copyfiles-help)
(source (expandpath ""))
(dest avmdest)
(pattern "mailbox2")
)
)
(makeassign "AVMREXX" "avm:rexx")
(makeassign "AVMTEMP" "t:")
(delete "avm:installer")
(delete "avm:avm-install")
(delete "avm:avm-install.info")
(makedir "avm:voices")
(complete 75)
(set modemtype
(askchoice
(prompt "What modem and ROM version do you have?")
(help @askchoice-help)
(choices
"Use previous files"
"LineLink 144e"
"MTD Dolphin"
"ZyXEL 6.01"
"ZyXEL 6.10"
"ZyXEL 6.11"
"ZyXEL 6.11a"
"Rockwell based Voice modem"
"ZyXEL 6.12"
"Non-Voice Class 2 Fax modem"
"Non-Voice Class 1 Fax modem"
)
(default 0)
)
)
(debug modemtype)
(if (> modemtype 0)
(execute "backupconfig"
(prompt "Backing up previous configuration")
)
)
(if (= modemtype 0)
(execute "avm:defaultscripts/usePrevious")
(if (= modemtype 1)
(execute "avm:defaultscripts/useLineLink144e")
(if (= modemtype 2)
(execute "avm:defaultscripts/useDolphin")
(if (= modemtype 3)
(execute "avm:defaultscripts/useZyXEL6.01")
(if (= modemtype 4)
(execute "avm:defaultscripts/useZyXEL6.10")
(if (= modemtype 5)
(execute "avm:defaultscripts/useZyXEL6.11")
(if (= modemtype 6)
(execute "avm:defaultscripts/useZyXEL6.11a")
(if (= modemtype 7)
(execute "avm:defaultscripts/useRockwell")
(if (= modemtype 8)
(execute "avm:defaultscripts/useZyXEL6.12")
(if (= modemtype 9)
(execute "avm:defaultscripts/useClass2")
(if (= modemtype 10)
(execute "avm:defaultscripts/useClass1")
)
)
)
)
)
)
)
)
)
)
)
(complete 80)
(set digitizertype
(askchoice
(prompt "What type of digitizer do you have?")
(help @askchoice-help)
(choices
"Generic/None"
"Perfect Sound"
)
(default 0)
)
)
(debug digitizertype)
(if (= digitizertype 0)
(execute "avm:defaultscripts/useGenericDigitizer")
(if (= digitizertype 1)
(execute "avm:defaultscripts/usePerfectSound")
(message "Bad Stuff")
)
)
(complete 85)
(set alerttype
(askchoice
(prompt "How do you want to be informed of new messages?")
(help @askchoice-help)
(choices
"Flashing LED"
"AmigaDOS Say Command"
"Prerecorded Voice"
)
(default 0)
)
)
(debug alerttype)
(if (= alerttype 0)
(execute "avm:defaultscripts/useFlashAlert")
(if (= alerttype 1)
(execute "avm:defaultscripts/useSayAlert")
(if (= alerttype 2)
(execute "avm:defaultscripts/useSayAlertPreRec")
(message "Bad Stuff")
)
)
)
(complete 90)
; **************************************************************************
; **************************************************************************
; **************************************************************************
(startup "AVM Suite"
(prompt "Adding the required ASSIGNS to your user-startup.")
(help @startup-help)
(command "assign avm: \"" avmdest "\"\n")
(command "assign avmrexx: \"avm:rexx\"\n")
(command "assign avmtemp: \"t:\"\n")
(command "assign faxout: \"avm:outgoing/voices\"\n")
(command "assign faxtemp: \"t:\"\n")
)
(execute "avm:renamevoicefiles"
(prompt "Renaming old voice files, if any.")
)
(execute "avm:copyfaxprinter"
(prompt "Copying faxprinter to devs:printers")
)
(if (= useoldicons 1)
(execute "avm:restoreoldicons"
(prompt "Restoring old icons")
)
)
(run "newshell con:////AVM-Install from deletevfiles"
(prompt "Deleting old voice files that were incompatible with this version.")
)
(complete 100)
; **************************************************************************
; **************************************************************************
; **************************************************************************
(exit)